home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b2.d64
/
exe123
< prev
next >
Wrap
Text File
|
2007-02-28
|
1KB
|
54 lines
0010 DIM PUPIL$(10) OF 30, NAME$ OF 30
0020 DIM ANSW$ OF 10, JOB$ OF 5
0030 //
0040 REPEAT //MAIN LOOP//
0050 CLEAR'TO(5)
0060 PRINT "WHAT JOB (ENTRY,LIST,REQUEST)",
0070 INPUT JOB$
0080 //POINT OUT JOB//
0090 IF JOB$="ENTRY" THEN TAKEIN
0100 IF JOB$="LIST" THEN PRINTALL
0110 IF JOB$="REQUE" THEN PRINTONE
0120 PRINT CHR$(19) //HOME
0130 PRINT "MORE JOBS (Y/N)",
0140 INPUT ANSW$
0150 UNTIL ANSW$="N"
0160 //
0170 PROC TAKEIN
0180 CLEAR'TO(5)
0190 REPEAT
0200 PRINT "NAME",
0210 INPUT NAME$
0220 IF NAME$<>"" THEN
0230 PRINT "NUMBER",
0240 INPUT NO
0250 PUPIL$(NO):=NAME$
0260 ENDIF
0270 PRINT
0280 UNTIL NAME$=""
0290 ENDPROC TAKEIN
0300 //
0310 PROC PRINTALL
0320 CLEAR'TO(5) //CLEAR SCREEN
0330 FOR NO:=1 TO 10 DO
0340 PRINT NO,": ",PUPIL$(NO)
0350 ENDFOR NO
0360 ENDPROC PRINTALL
0370 //
0380 PROC PRINTONE
0390 CLEAR'TO(5)
0400 PRINT "NUMBER",
0410 INPUT NO
0420 IF PUPIL$(NO)<>"" THEN
0430 PRINT "THE PUPILS NAME IS ",PUPIL$(NO)
0440 ELSE
0450 PRINT "NO PUPIL WITH THAT NUMBER!"
0460 PRINT "HAVE A LIST PRINTED (LIST)."
0470 ENDIF
0480 ENDPROC PRINTONE
0490 //
0500 PROC CLEAR'TO(X)
0510 PRINT CHR$(147), //CLEAR
0520 FOR I:=1 TO X DO PRINT //X DOWN
0530 ENDPROC CLEAR'TO